Apple II Magazines (DO)

home *** CD-ROM | disk | FTP | other *** search

/ Apple II Magazines (DO) / Softdisk Magazette Volume 1, No. 06 (1982-02)(Softdisk)(Side B).zip / Softdisk Magazette Volume 1, No. 06 (1982-02)(Softdisk)(Side B).do / RECIPE.FILE.bas < prev next >

Wrap

BASIC Source File | 1996-12-24 | 18KB | 305 lines

0 TEXT : HOME : INVERSE : LIST 61001 -: NORMAL : VTAB 2: FOR X = 2 TO 23: PRINT " :::::::";: HTAB 33: PRINT ":::::::": NEXT : FOR X = 0 TO 4999: NEXT : NORMAL : REM CHEAP TITLE PAGE 1 VTAB 23: PRINT CHR$(4)"NOMONCIO": REM TURN OFF "MON" 2 GOSUB 56000: REM CHK FOR FILES 10 REM *********************** 20 REM **....RECIPE FILE....** 30 REM ** VERSION S ** 40 REM **SEE LINE 30365 FOR ** 45 REM **CHANGES IF PRINTER ** 47 REM **IS NOT AN EPSON MX.** 50 REM ***********************<CTRL-J> 55 ONERR GOTO 40000: REM SET ERROR TRAP 60 GOTO 50000: REM INIT & MENU 100 REM CENTER A$ ROUTINE 110 HTAB (20 - LEN(A$)/2) + NOT INPT: PRINT A$: RETURN 200 REM INPUT "RTN" TO CONTINUE 205 POKE CB,0: REM CLR KEYBOARD 210 NORMAL : PRINT "PRESS ";: INVERSE : PRINT "RETURN";: NORMAL : PRINT " TO CONTINUE ";: FLASH : PRINT U$;: NORMAL 220 WAIT KB,128: IF PEEK(KB) < >141 THEN 220 230 POKE CB,0: VTAB PEEK(VC) +1: HTAB 1: PRINT SPC( 40): RETURN 300 REM PRINT "READING" MESSAGE 310 VTAB 12: HTAB 16: INVERSE : PRINT "[READING]": NORMAL 320 RETURN 1000 REM <CTRL-J><CTRL-J>::: INPUT ROUTINE :::<CTRL-J><CTRL-J> 1007 REM MARGINS:A=LEFT,B=RIGHT,C=TOP,D=BOTTOM 1010 INVERSE : FOR X = C TO D: VTAB X: HTAB A: PRINT SPC( B -1): PRINT : NEXT : REM DRAW "RECIPE CARD" 1030 POKE LFT,A -1: POKE TP,C -1: POKE BM,D: POKE WTH,B: REM SET WINDOW 1040 VTAB C: PRINT : VTAB C: HTAB 1: REM POSITION CURSOR 1050 REM TEXT IS CAPTURED IN A$(ARRAY.EACH MEMBER CAN HAVE UP TO 217 CHARS. 1060 STRING = 0: POKE CB,STRING 1070 IF POS(X) < >B -1 THEN 1080: REM CHECK FOR END OF LINE 1075 IF PEEK(VC) = D -1 THEN CALL UP: VTAB PEEK(VC): NORMAL : PRINT S$;: INVERSE : PRINT SPC( B -1);: HTAB 1: GOTO 1080: REM END OF PAGE; MOVE TEXT UP ONE AND WHITE IN NEW BOTTOM LINE 1077 VTAB PEEK(VC) +2: HTAB 1 1079 REM WAIT FOR KEY; IF IT IS A CTRL CHAR,QUOTE,OR "ESC" THEN CHECK IT OUT AT LINE 1100 1080 FLASH : PRINT U$;: INVERSE : WAIT KB,128:A$ = CHR$( PEEK(KB)): IF ASC(A$) <160 OR ASC(A$) >222 OR ASC(A$) = 162 THEN 1100 1084 REM ADD CURRENT CHAR (A$) TO END OF STRING A$(STRING). IF A$(STRING) IS FULL THEN ADVANCE STRING 1085 A$(STRING) = A$(STRING) +A$: IF LEN(A$(STRING)) = 217 THEN STRING = STRING +1:A$(STRING) = "" 1086 IF STRING >9 THEN CALL BP: CALL BP: CALL BP: CALL BP: GOTO 1300: REM RECIPE IS TOO LONG;SAVE WHAT'S BEEN TYPED SO FAR AND RETURN TO MENU 1087 HTAB POS(X): PRINT A$; 1090 POKE CB,0: GOTO 1070 1100 REM SPECIAL CHARACTER 1110 IF A$ = CHR$(141) THEN 1300: REM 'RTN' INDICATES DONE 1112 IF A$ = CHR$(155) THEN NORMAL : POKE CB,0: HOME : PRINT : RUN 10: REM "ESC" KEY PRESSED 1115 IF A$ = CHR$(136) THEN 1120: REM BACKSPACE 1116 PRINT H$;: CALL BP: GOTO 1090: REM INVALID CHAR. 1120 IF LEN(A$(STRING)) >1 THEN A$(STRING) = LEFT$(A$(STRING), LEN(A$(STRING)) -1): GOTO 1135: REM REMOVE LAST CHAR 1130 IF LEN(A$(STRING)) = 0 THEN 1116: REM CAN'T BACKSPACE INTO A PREVIOUS STRING, SORRY 1132 A$(STRING) = "": REM IF THERE WAS 1 CHAR, NOW STRING IS EMPTY 1135 PRINT A$S$; 1140 IF POS(X) = 1 AND PEEK(VC) >C -1 THEN VTAB PEEK(VC): HTAB B +1 1150 GOTO 1087 1300 POKE CB,0: CALL BP: TEXT : HOME : NORMAL : RETURN : REM EXIT 10000 REM <CTRL-J><CTRL-J><CTRL-J>::: ENTER RECIPES :::<CTRL-J><CTRL-J> 10010 HOME : INVERSE : VTAB 3:A$ = ": FILE NEW RECIPES :": GOSUB 100: NORMAL 10020 VTAB 6: FOR X = 0 TO 4: PRINT "<" CHR$(X +65)">...."CT$(X): NEXT : VTAB 6: FOR X = 5 TO 9: HTAB 23: PRINT "<" CHR$(X +65)">...."CT$(X): NEXT 10030 FOR X = 5 TO 11 STEP 6: VTAB X: PRINT DASH$: NEXT 10040 PRINT 10050 PRINT "ENTER THE LETTER OF THE": PRINT "APPROPRIATE CATEGORY <A-J>:"U$;: HTAB 28: INPUT "";CG$: IF CG$ = "" THEN HOME : GOTO 50200 10055 CG = ASC(CG$) -65: IF CG <0 OR CG >9 THEN HOME : GOTO 50200 10060 PRINT : PRINT "NAME OF RECIPE ";: FOR X = 1 TO 20: PRINT U$;: NEXT : HTAB 15: INPUT ":";NM$ 10065 IF LEN(NM$) >20 THEN CALL BP: PRINT : PRINT "NAME MUST BE NO LONGER THAN 20 CHARS.": GOTO 10060 10070 VTAB 19: PRINT "NAME:";: FLASH : PRINT NM$: NORMAL : PRINT : PRINT "CATEGORY:";: FLASH : PRINT CT$(CG): NORMAL 10080 PRINT : PRINT "IS THE ABOVE INFO CORRECT <Y/N>?"U$;: HTAB 33: INPUT "";YN$:YN$ = LEFT$(YN$,1): IF YN$ < >"N" THEN 10100 10090 VTAB 14: CALL CT: GOTO 10050 10100 REM INPUT THE RECIPE 10105 INPT = 1: REM FLAG FOR CENTERING ROUTINE 10110 HOME :A$ = NM$ +" (" +CT$(CG) +")": GOSUB 100 10120 PRINT :A$ = ".....TYPE THE RECIPE BELOW.....": GOSUB 100 10125 INPT = 0 10130 VTAB 5: HTAB 4: PRINT LEFT$(DASH$,31): VTAB 22: HTAB 4: PRINT LEFT$(DASH$,31) 10135 VTAB 24: HTAB 2: PRINT "<HIT ";: INVERSE : PRINT "RETURN";: NORMAL : PRINT " WHEN DONE, ";: INVERSE : PRINT "ESC";: NORMAL : PRINT " TO EXIT>"; 10140 A = 4:B = 32:C = 6:D = 21: GOSUB 1000: REM SET WINDOW MARGIN PARAMETERS;GO TO "INPUT" SUBROUTINE 10150 LNGTH = STRING: REM NUMBER OF "CHUNKS" OF TEXT (EACH CHUNK=217 CHARS,7 LINES OF 31 CHARS) 10165 VTAB 9 10170 PRINT "INSERT DISKETTE INTO THIS DRIVE CONTAINING RECIPE FILES.": PRINT : GOSUB 200 10175 PRINT 10180 PRINT D$"OPENRF."CT$(CG)",L2000" 10190 PRINT D$"READRF."CT$(CG)",R0" 10200 INPUT REC 10210 PRINT D$"WRITERF."CT$(CG)",R"REC +1 10220 PRINT NM$: PRINT LNGTH 10250 FOR X = 0 TO LNGTH 10260 PRINT Q$A$(X)Q$ 10270 NEXT 10290 PRINT D$"WRITERF."CT$(CG)",R0" 10300 PRINT REC +1 10310 PRINT D$"CLOSE" 10315 REM PREVIOUS LINES OPEN THE FILE; ADD THE NEW DATA; REC 0 CONTAINS NUMBER OF RECIPES IN THIS FILE 10320 PRINT : PRINT "THE RECIPE FOR "NM$" HAS": PRINT "BEEN ADDED TO THE "Q$CT$(CG)Q$" FILE.": PRINT : GOSUB 200: PRINT : HOME 10330 RUN 10: REM GO TO MENU; CLEARS STRINGS & VARIABLES 30000 REM <CTRL-J><CTRL-J><CTRL-J>::: READ RECIPES :::<CTRL-J><CTRL-J> 30010 HOME : INVERSE : VTAB 3:A$ = ": READ RECIPES :": GOSUB 100: NORMAL :X1 = 0 30011 PRINT : PRINT "LTR";: HTAB 5: PRINT "CATEGORY";: HTAB 36: PRINT "RECS": HTAB 5: PRINT LEFT$(DASH$,35) 30012 FOR X = 0 TO 9:CG$ = CT$(X): PRINT D$"OPENRF."CG$",L2000": PRINT D$"READRF."CG$",R0": INPUT REC: PRINT D$"CLOSE" 30013 X1 = X1 +REC: REM X1=TOT 30014 PRINT "< > . . . . . . . . . . . . . . . . . .";: HTAB 2: PRINT CHR$(X +65);: HTAB 5: PRINT CG$;: HTAB 39 -(REC >9): PRINT REC 30016 NEXT 30017 HTAB 5: PRINT LEFT$(DASH$,35) 30020 HTAB 31: PRINT "TOTAL:";: HTAB 39 -(X1 >9) -(X1 >99): PRINT X1: PRINT 30030 HTAB 3: PRINT "ENTER THE LETTER OF": HTAB 3: PRINT "YOUR CHOICE <A-J>:"U$;: HTAB 21: INPUT "";CG$: IF CG$ = "" THEN HOME : GOTO 50200 30035 CG = ASC(CG$) -65: IF CG <0 OR CG >9 THEN HOME : GOTO 50200 30045 HOME : PRINT : GOSUB 300 30050 PRINT D$"OPENRF."CT$(CG)",L2000" 30060 PRINT D$"READRF."CT$(CG)",R0" 30070 INPUT REC 30080 IF REC = 0 THEN PRINT D$"CLOSE": GOTO 31000 30090 FOR X = 1 TO REC 30100 PRINT D$"READRF."CT$(CG)",R"X 30110 INPUT NM$(X) 30120 NEXT 30130 PRINT D$"CLOSE" 30135 FOR X = 1 TO REC: IF RIGHT$(NM$(X),1) < >S$ THEN NEXT : GOTO 30140 30136 FOR X1 = 20 TO 1 STEP -1: IF MID$ (NM$(X),X1,1) = S$ THEN NM$(X) = LEFT$(NM$(X),X1 -1): NEXT 30137 X1 = 1: NEXT X1,X 30140 HOME : INVERSE :A$ = ":" +S$ +Q$ +CT$(CG) +Q$ +S$ +"FILE :": GOSUB 100 30142 PG = 0: REM LISTING PAGES 30145 NORMAL : PRINT "LTR";: HTAB 34: PRINT "RECIPE": PRINT LEFT$(DASH$,39) 30150 FOR X = 1 TO REC: PRINT "<" CHR$( PEEK(37) +62)"> . . . . . . . . . . . . . . .";: HTAB 40 - LEN(NM$(X)): PRINT NM$(X) 30170 IF PEEK(37) = 22 AND X < >REC THEN 30172: REM CHECK FOR FULL PAGE OF TEXT 30171 NEXT : GOTO 30180 30172 PRINT LEFT$(DASH$,39): HTAB 3: PRINT "PRESS <A-S> OR PRESS ";: FLASH : PRINT "RETURN";: NORMAL : PRINT " FOR MORE"; 30173 POKE CB,0: WAIT KB,128:N = ( PEEK(KB) -192) +20 *PG: POKE CB,0:PG = PG +1: REM GET CHARACTER FROM KEYBOARD 30174 IF N <0 THEN VTAB 3: PRINT : GOTO 30171: REM RETURN FOR MORE 30178 GOTO 30190 30180 CALL CT: PRINT LEFT$(DASH$,39): HTAB 2: PRINT "PRESS LETTER OR PRESS ";: FLASH : PRINT "RETURN";: NORMAL : PRINT " FOR MENU"; 30182 POKE CB,0: WAIT KB,128:N = ( PEEK(KB) -192) +20 *PG: POKE CB,0: REM GET CHOICE 30184 IF N <0 THEN HOME : GOTO 50200: REM "RTN" SO BACK TO MENU 30190 IF N >REC THEN 30180 30200 HOME : GOSUB 300 30210 PRINT D$"OPENRF."CT$(CG)",L2000" 30220 PRINT D$"READRF."CT$(CG)",R"N 30230 INPUT NM$: INPUT LNGTH 30240 FOR X = 0 TO LNGTH 30260 INPUT A$(X) 30270 NEXT 30280 PRINT D$"CLOSE" 30290 VTAB 12: PRINT "ENTER THE PRINTER'S SLOT": PRINT "NUMBER (DEFAULT=1):"U$;: HTAB 20: INPUT "";A$:PR = VAL(A$) 30295 IF A$ = "" THEN PR = 1: REM DEFAULT TO SLOT 1 30300 PR# PR: REM PRINTER <ON> 30320 PRINT 30330 PRINT CHR$(9)"80N": PRINT "RECIPE FOR "NM$: PRINT CHR$(14); 30332 PRINT LEFT$(DASH$,39) 30340 FOR X = 0 TO LNGTH:A$ = A$(X): FOR X1 = 0 TO 6: PRINT CHR$(14) MID$ (A$,X1 *31 +1,31): NEXT : NEXT : PRINT CHR$(14); 30342 PRINT LEFT$(DASH$,39) 30350 HTAB 9: PRINT ",": HTAB 2: PRINT "BON APPETIT!" 30355 PRINT CHR$(10) CHR$(10) CHR$(10) CHR$(10): REM LINE FEEDS 30360 PR# 0: REM PRINTER <OFF> 30364 REM 30365 REM NOTE: DELETE CHR$(X) CHARS FROM LINES 30330,30340AND 30355 FOR USE W/ PRINTEROTHER THAN AN EPSON MX. 30366 REM 30370 GOSUB 200: PRINT : RUN 10 31000 REM NO RECIPES IN CATEGORY 31005 FOR X = 1 TO 3: CALL BP: NEXT : HOME 31010 VTAB 11: PRINT "THERE ARE NO RECIPES CURRENTLY IN THE": PRINT Q$CT$(CG)Q$" FILE.": PRINT : GOSUB 200: HOME : GOTO 50200 40000 REM <CTRL-J><CTRL-J><CTRL-J>::: ERROR TRAP :::<CTRL-J><CTRL-J> 40010 TEXT : HOME : NORMAL : PR# 0 40020 ER = PEEK(222): IF ER = 255 THEN 60000 40030 IF ER < >4 AND ER < >5 AND ER < >8 AND ER < >9 AND ER < >10 THEN CALL -211: VTAB 5: PRINT "ERROR #" PEEK(222)" HAS OCCURRED IN LINE " PEEK(218) + PEEK(219) *256: STOP 40040 PRINT D$"CLOSE" 40050 IF ER = 9 THEN PRINT "THIS DISK IS NOW FULL. THE CURRENT RECIPE HAS NOT BEEN PROPERLY SAVED. YOU SHOULD MAKE ROOM ON THIS DISK OR MOVE THESE 'RF' FILES TO A NEW DISK." 40060 IF ER = 10 THEN PRINT "ALL 'RF' FILES MUST BE UNLOCKED IN ORDERTHAT THIS PROGRAM WRITE TO THEM. THE CURRENT RECIPE HAS NOT BEEN SAVED. YOU MUST UNLOCK ALL 'RF' FILES BEFORE USING THIS PROGRAM AGAIN." 40070 IF ER = 4 THEN PRINT "FILES CANNOT BE WRITTEN TO THIS DISK AS IT IS WRITE PROTECTED. THE CURRENT REC- IPE HAS NOT BEEN SAVED. EITHER INSERT A NEW DISK OR REMOVE THE WRITE-PROTECT TABFROM THIS ONE." 40080 IF ER = 8 THEN PRINT "AN INPUT/OUTPUT ERROR HAS OCCURRED!! MAKE SURE THE DISK IS LOADED PROPERLY & THE DRIVE DOOR IS CLOSED. THE CURRENT RECIPE HAS NOT BEEN SAVED." 40090 IF ER = 5 THEN PRINT D$"DELETERF."NM$: PRINT "THE RECIPE FILES ARE NOT ON THIS DISK. THE CURRENT RECIPE HAS NOT BEEN SAVED." 40100 FOR X = 1 TO 5: CALL BP: NEXT : PRINT : END 50000 REM <CTRL-J><CTRL-J><CTRL-J>::: INITIALIZATION :::<CTRL-J><CTRL-J> 50010 TEXT : HOME : SPEED= 255 50020 D$ = CHR$(4): REM CTRL-D 50030 Q$ = CHR$(34): REM QUOTE 50040 S$ = CHR$(32): REM SPACE 50045 U$ = CHR$(95): REM SCORE 50047 H$ = CHR$(8): REM BCKSPC 50070 LFT = 32: REM LEFT MARGIN 50080 WTH = 33: REM SCREEN WIDTH 50090 TP = 34: REM TOP MARGIN 50100 BM = 35: REM BOTTOM MARGIN 50110 CT = -958: REM CLR WNDW 50120 UP = -912: REM SCROLL UP 50130 KB = -16384: REM KYBOARD 50140 CB = -16368: REM CLR KBD 50150 BP = -198: REM CALL BEEP 50180 VC = 37: REM VERT.CURSOR 50190 DIM NM$(60): REM DIMENSION NM$ ARRAY 50191 FOR X = 1 TO 40:DASH$ = DASH$ +"-": NEXT 50192 NOTRACE : REM TRACE <OFF> 50196 FOR X = 0 TO 9: READ CT$(X): NEXT : REM READ IN CATE- GORY NAMES 50199 REM <CTRL-J><CTRL-J><CTRL-J> ::: MENU :::<CTRL-J><CTRL-J> 50200 INVERSE : VTAB 2: PRINT SPC( 40): VTAB 23: PRINT SPC( 40): FOR X = 3 TO 22: VTAB X: HTAB 1: PRINT S$;: HTAB 40: PRINT S$: NEXT 50203 VTAB 3: HTAB 2: PRINT S$;: HTAB 39: PRINT S$: VTAB 22: HTAB 2: PRINT S$;: HTAB 39: PRINT S$: NORMAL 50205 POKE WTH,38: VTAB 5: PRINT 50210 A$ = "*** RECIPE FILE ***": GOSUB 100 50220 PRINT :A$ = ".........BY JIM GANZ.........": GOSUB 100 50225 INVERSE 50230 PRINT :A$ = "A PROGRAM WHICH ALLOWS YOU TO": GOSUB 100 50240 A$ = "ORGANIZE YOUR RECIPES ON DISK": GOSUB 100 50250 NORMAL :A$ = ".............................": GOSUB 100: PRINT 50260 HTAB 5: PRINT "<1> ENTER NEW RECIPES": HTAB 5: PRINT "<2> READ RECIPES": HTAB 5: PRINT "<3> INSTRUCTIONS": HTAB 5: PRINT "<4> EXIT THIS PROGRAM" 50270 PRINT : HTAB 5: PRINT "ENTER YOUR CHOICE <1-4>:"U$;: HTAB 29: INPUT "";YN$:C = VAL(YN$): IF C <1 OR C >4 THEN TEXT : HOME : GOTO 50200 50275 TEXT 50280 ON C GOTO 10000,30000,57000,60000 55000 REM CATEGORY NAME DATA 55010 DATA BEVERAGES,BREADS,DESSERTS,FISH,HORS D'OEUVRES,MEAT,POULTRY,SOUPS,VEGETABLES,OTHER 55020 REM YOU MAY CHANGE THE ABOVE CATEGORY NAMES BUT THERE CAN ONLY BE 10. 55030 REM CATEGORY NAMES MAY NOT BE LONGER THAN 16 CHARS. 56000 REM <CTRL-J><CTRL-J><CTRL-J>::: INIT FILES :::<CTRL-J><CTRL-J> 56010 D$ = CHR$(4): ONERR GOTO 56023 56020 READ YN$: RESTORE : PRINT D$"VERIFYRF."YN$: POKE 216,0: RETURN 56023 IF PEEK(222) < >6 THEN STOP : REM AN ERROR DID OCCUR,BUT IT WASN'T A "FILE NOT FOUND" ERROR SO STOP! 56025 FOR X = 0 TO 9: READ CT$(X): NEXT : RESTORE 56050 FOR X = 0 TO 9:CT$ = CT$(X) 56064 PRINT D$"OPENRF."CT$",L2000" 56070 PRINT D$"WRITERF."CT$",R0" 56080 PRINT 0 56090 PRINT D$"CLOSE" 56100 NEXT : HOME : POKE 216,0: GOTO 55 56110 REM THE PREVIOUS ROUTINE CREATES ALL 10 RECIPE FILES AND SPECIFIES IN EACH ONE THAT THERE ARE 0 RECORDS 57000 REM <CTRL-J><CTRL-J><CTRL-J>::: INSTRUCTIONS :::<CTRL-J><CTRL-J> 57010 TEXT : HOME : PRINT "::::::::";: INVERSE : PRINT "RECIPE FILE INSTRUCTIONS";: NORMAL : PRINT "::::::::" 57015 PRINT : POKE TP,3 57020 PRINT " THIS PROGRAM WILL STORE YOUR MOST": PRINT 57030 PRINT "OFTEN USED RECIPES ON DISK AND ALLOW YOU" 57040 PRINT "TO OBTAIN A PRINT-OUT OF THEM ON YOUR": PRINT 57050 PRINT "PRINTER. WHEN YOU WANT A PARTICULAR": PRINT 57060 PRINT "RECIPE, OR WHEN A FRIEND WANTS A COPY OF" 57070 PRINT "ONE OF YOUR RECIPES, SIMPLY SELECT THAT": PRINT 57080 PRINT "RECIPE FROM THE PROGRAM'S 'MENU' AND IT": PRINT 57090 PRINT "WILL BE PRINTED OUT FOR YOU.": PRINT 57100 PRINT " BEFORE YOU ACTUALLY BEGIN ENTERING": PRINT 57110 PRINT "YOUR RECIPES INTO THIS PROGRAM, IT IS": PRINT 57115 PRINT ":::::::";: GOSUB 200 57120 PRINT "SUGGESTED THAT YOU SAVE THIS PROGRAM,": PRINT 57130 PRINT "ENTITLED 'RECIPE FILE,' ONTO A SEPERATE": PRINT 57140 PRINT "DISK. THE 10 TEXT FILES WHICH ACCOMPANY" 57150 PRINT "'RECIPE FILE,' WHICH ARE IDENTIFIED BY": PRINT 57160 PRINT "THEIR PREFIX 'RF.', SHOULD BE THE ONLY": PRINT 57170 PRINT "OTHER FILES ON THE SAME DISK AS THIS": PRINT 57180 PRINT "PROGRAM.": PRINT 57230 PRINT " THE FOUR OPTION MENU SHOULD BE SELF-" 57240 PRINT "EXPLANATORY. RECIPES ARE TYPED ON A": PRINT 57250 PRINT "KIND OF VIDEO RECIPE CARD. PRETEND THAT" 57255 PRINT "::::::::";: GOSUB 200 57260 PRINT "YOU ARE TYPING ON A REAL RECIPE CARD AND" 57270 PRINT "ENTER ALL NECESSARY INFORMATION. YOU MAY" 57280 PRINT "JUSTIFY THE TEXT AS YOU WISH, AND WHEN": PRINT 57290 PRINT "YOU REACH THE BOTTOM OF THE CARD, IT": PRINT 57300 PRINT "WILL SCROLL UPWARD SO YOU CAN CONTINUE.": PRINT 57310 PRINT "IT IS NOT NECESSARY TO TYPE THE TITLE OF" 57320 PRINT "THE RECIPE ON THE CARD, AND YOU SHOULD": PRINT 57330 PRINT "KNOW THAT BOTH THE QUOTATION MARK AND": PRINT 57340 PRINT "THE FORWARD ARROW (->) ARE INOPERATIVE.": PRINT 57350 PRINT "PRESS 'RETURN' *ONLY* WHEN YOU ARE COM-": PRINT 57355 PRINT "::::::::";: GOSUB 200 57360 PRINT "PLETELY FINISHED TYPING IN THE RECIPE.": PRINT 57370 PRINT "IF FOR ANY REASON YOU SHOULD WANT TO RE-" 57380 PRINT "TURN TO THE MAIN MENU, PRESS 'ESC'.": PRINT 57390 PRINT " AFTER READING IN A RECIPE FROM THE": PRINT 57400 PRINT "DISK, YOU WILL BE ASKED TO ENTER YOUR": PRINT 57410 PRINT "PRINTER'S INTERFACE CARD SLOT NUMBER.": PRINT 57420 PRINT "MAKE SURE THAT YOUR PRINTER IS TURNED ON" 57430 PRINT "AND IF THE PRINTER'S CONTROL CARD IS IN": PRINT 57440 PRINT "SLOT NUMBER 1, THE USUAL LOCATION, THEN": PRINT 57450 PRINT "JUST RESPOND TO THIS QUESTION BY PRESS-": PRINT 57455 PRINT "::::::::";: GOSUB 200: PRINT 57460 PRINT "ING THE 'RETURN' KEY. IF THE PRINTER IS" 57470 PRINT "NOT PLUGGED INTO SLOT ONE, THEN RESPOND": PRINT 57480 PRINT "WITH THE APPROPRIATE SLOT NUMBER.": PRINT 57500 PRINT " WELL, THAT'S ALL YOU REALLY NEED TO": PRINT 57510 PRINT "KNOW TO GET STARTED. JUST ONE WARNING:": PRINT 57520 PRINT "DON'T BE SURPRISED IF YOUR APPLE LOSES": PRINT 57530 PRINT "YOUR RECIPE FOR APPLE PIE; IT MAY BE": PRINT 57540 PRINT "OFFENDED!": PRINT 57550 PRINT : GOSUB 200: TEXT 57555 HOME 57560 GOTO 50200: REM RETURN TO MENU 59999 REM END PROGRAM 60000 TEXT : HOME : TEXT 60010 PRINT "THANK YOU FOR USING "Q$"RECIPE FILE"Q$" TODAY-AND ";: FLASH : PRINT "ENJOY";: NORMAL : PRINT "!" 60020 END 60505 REM NOTE: 60510 REM RETAIN THE FOLLOWING 60520 REM "REM" LINES AS THEY 60530 REM ARE USED AS A TITLE 60540 REM PAGE. 61000 REM 65535 REM ********************* 65535 REM * * 65535 REM * RECIPE FILE * 65535 REM * * 65535 REM * BY JIM GANZ * 65535 REM * 82 SPRING LANE * 65535 REM * WEST HARTFORD,CT * 65535 REM * 06107 * 65535 REM * * 65535 REM * COPYRIGHT (C) 1982* 65535 REM * * 65535 REM * DEDICATION: * 65535 REM * TO SALLY GANZ, * 65535 REM * THE WORLD'S MOST * 65535 REM * DISORGANIZED COOK.* 65535 REM * * 65535 REM * REQUIRES: * 65535 REM * 48K APPLE ][+ * 65535 REM * ONE DISK DRIVE & * 65535 REM * PRINTER. * 65535 REM * * 65535 REM *********************